home *** CD-ROM | disk | FTP | other *** search
/ POINT Software Programming / PPROG1.ISO / pascal / swag / files.swg / 0047_File Date-Time Management.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1994-01-27  |  1.4 KB  |  31 lines
  1. {*******************************************************************}
  2. Program File_Date_Time_Demo;    { Aug 21/93, Greg Estabrooks.       }
  3. USES CRT,                          { Clrscr,}
  4.      DOS;                          { GetFTime, UnPackTime, DateTime,}
  5.  
  6. VAR
  7.    FileName :STRING[12];           { Holds the name of file to check}
  8.    F        :FILE;                 { Holds file handle.             }
  9.    FileT    :LONGINT;
  10.    FTime    :DateTime;
  11.  
  12. BEGIN
  13.   Clrscr;                          { Clear the screen up.           }
  14.   FileName := ParamStr(1);         { Get name of file name.         }
  15.   IF Length(FileName) = 0 THEN     { If no name send error msg.     }
  16.     Writeln('FileName must be specified!',^G)
  17.   ELSE
  18.     BEGIN
  19.       Assign(F,FileName);          { Assign handle to F.            }
  20.       Reset(F);                    { Open File.                     }
  21.       GetFTime(F,FileT);           { Get the Time and Date for file.}
  22.       Close(F);                    { Close The File.                }
  23.       UnPackTime(FileT,FTime);     { Unpack the time+date into fTime}
  24.       Write(' File : ',FileName);  { Display Info for user.         }
  25.       Write(' was last modified on ');
  26.       Write(FTime.Month,'-',FTime.Day,'-',FTime.Year,' at ');
  27.       Write(FTime.Hour,':',FTime.Min,':',FTime.Sec);
  28.     END;{IF}
  29. END.{File_Date_Time_Demo}
  30. {*******************************************************************}
  31.